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MEMORY MANAGEMENT SERVICES TEST #2 


- TITLE mee ETPRT = TEST OF SSETPRT SYSTEM SERVICE 
- IDENT 4-000" 


—MARBRBARBRAARAAALALAAALALARSASALLARARALAL AAAS ALARASA SARA ARARASAAAA AAAS RASA DDS SS 
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dded further tests to system services tested in this 
= ram. Also incorporated program into MMG test 
package. 


p ] 
4 
90 5 * 
0 10 ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
00 11 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
09 1g = ALL RIGHTS RESERVED. . 
000 14 ;* THIS SOFTWARE + FURNISHED UNDER A LICENSE AND MAY BE USED AND sore * 
0 o 15 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH inh ‘oar a THE * 
000 1 :* INCLUSION OF THe ABOVE Spied NOTICE. THIS SOFTWARE OR OTH ER * 
8 00 17 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
00 18 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
8 3 YP is TRANSFERRED. 2 
0000 1 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 § ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 7 CORPORATION. * 
: ® 
0000 5 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 26 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 7? ;* ® 
0000 8 ;* * 
0000 QD seeeeeeeeee eee eee eAe eee AAA AAAAAAAAAKAAAKATAAEAAAAAAAReAeKee Kee ee Aee Kees eee 
0000 0 
0000 1 ;+¢ 
49 ¢ 3; FACILITY: USER MODE MEMORY MANAGEMENT SERVICES TEST 
444 $0 ; ABSTRACT: THIS SET OF ROUTINES TESTS THE MEMORY MANAGEMENT SERVICES 
9000 36 ; ENVIRONMENT: USER MODE DIAGNOSTIC 
444 38 ; AUTHOR: PETER H. LIPMAN . CREATION DATE: 6-JAN-77 
0000 40 ; MODIFIED BY: 
0000 41 ; 
0000 g : v02-012 SuTOOOT Stephen Zalewski 20-Aug-1980. 
44: 
45 ; 
46 ; 
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SOOCOCCOCCOOCOCOOOOOOOOSOOOOSOOoOOoO oO 


0 
-SBTTL DECLARATIONS 
INCLUDE FILES: 
-SBTTL MACROS 


$1Z2=#1,ADR=(R2),7L1,7L2 
>, <ADR>,L1 


| 
| 
ue a aganee 
| 


nw” 
—" 
g£rawD 232 sar 


L2: 
-ENDM READ 
«MACRO WRITE SIZ=#1,ADR=(R2),7L1,?7L2 


DOCOOCOOOCOOCOCOCOCOOOOOOOCOOCSOOO A- 
OOCCCCCOCOOCOCOCOOOOOOOOooOooo 


SOOCOCCOCOCSOOOCOOOOOOCOOOOOOoOOoOOoOO 


<$1Z>,<ADR>,L1 


BRB Le 
L1: MOVAL W*“WRITERR,R1 
L2 BSBW PROBERR 


.ENDM = WRITE 

.MACRO NOREAD SIZ=41 
iFNORD <SI2>,<ADR>,L4 
MOVAL WNOREADERR.R1 
BSBW  PROBERR 

.ENDM NOREAD 


ADR=(R2),7L1 


Li: 


.MACRO NOWRITE S$1Z=#1,ADR=(R2),?L1 
IFNOWRT <SIZ>,<ADR>,L1 

MOVAL WANOWRITERR.R1 

BSBW  PROBERR 


-ENDM NOWRITE 


«MACRO CRETVA STARTVA,ENDVA, STATUS=S“#SS$_NORMAL , - 
INADR=W* INRANGE , RE TADR=W*RE TRANGE 


Li: 


COOOCooooooooooo 


COOooooooooooooo 
MEW OOO NAUE WIN  O OD NAUES WN 0 ODNAU EWN OVWONOUS WOO 
-_ 
nn 
z 
o 
<£ 
» 
par 


LIST 


So 
o 
So 
So 
WOOO OOOO 0000 09 09 09 09 09 09 09 09 SI INI NN SSD DD DDD DP DPD IIIT 


SOSSSSSSOSSSSSSSSsses 

Soooco~f 
FWN—S Oo 

z 

S 

< 

~ 

< 

q 


1 NB, STARTVA 
MOVL § STARTVA,W* INRANGE 
: NB,ENDVA 

MOVL ENDVA,W* INRANGE +4 
.ENDC 


STATUS R3 
INADR,RO 


COOCOOOOOOOOOOOOOOSOoOSoOSooOoSoSo 


Sooooo 
Soooooooooo 
SOOCooCoCooeooo: 
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v04 MACROS eee Pi 8} 33:35 GTST.SRCJMMGSETPRT.MAR; 1 ° 3) 
0 105 MOVAL RETADR,R1 
1 5 BSBW §CRETVASUBR 
1 NLIST 
108 .ENDM = CRETVA 
0 110 -MACRO DELTVA STARTVA,ENDVA, STATUS=S“#SS$_NORMAL ,~ 
0 111 INADR=W* INRANGE , RE TADR=W*RETRANGE 
09 116 LIST 
000 11 IF 
909 114 MOVE Me AST Un Us INRANGE 
90 115 .ENDC 
00 116 < IF NB, ENDVA 
999 1 HOVE ENDVA,W* INRANGE +4 
000 119 MOVZWL STATUS R3 
0000 120 MOVAL DR, RO 
9000 121 MOVAL ay R1 
000 1 : BSBW  DELTVASUBR 
0000 1 NLIST 
0000 124 .ENDM = DELTVA 
0000 125 
0000 126 -MACRO EXPREG PAGCNT,REGION=#0,STATUS=S*#SS$_NORMAL , - 
0000 127 RETADR=W*RETRANGE 
0000 128 LIST 
0000 1¢9 MOVZWL STATUS, R3 
0000 130 MOVL PAGCNT «Rd 
0000 «131 MOVAL RETA 
0000 138 IF IDN, PREGIOND. <#0> 
0000 13 CLRL RS 
0000 134 FF 
0000 135 MOVL REGION, RS 
0000 136 .ENDC 
0000 137 BSBW EXPREGSUBR 
0000 138 NLIST 
909 139 .ENDM  EXPREG 
0000 141 -MACRO SETPRT ACC,STARTVA,ENDVA, STATUS=S“#SS$_NORMAL ,~ 
0000 148 INADR=W* INRANGE ,RETADR=W*RETRANGE , - 
0000 14 PRVPRTSNONE. PRVPRTADR 
0000 144 LIST 
0000 145 IF NB, STAR 
9000 146 MOVL OF ARTVA Us INRANGE 
0000 14 .ENDC 
00 : 148 - IF 
14 MOVL CROWA Us INRANGE +4 
0 130 .ENDC 
0 151 MOVZWL STATUS,R3 
00 138 MOVAL INADR RO 
1 MOVAL RETADR,R1 
154 MOVZBL S*“#PRTS$C_' 
155 MOVZBL S*APRISCE PRUBRT. RS 
1 : IF PRVPRTADR 
1 “IF Bir <PRVPRT>. <NONE> 
1 ; MOVAL UAPREVPROT RO 
i LFF 
160 CLRL RO 
161 -ENDC 


TPRT 


- ee 
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v04 ets 8 83:55 UAMGTS T.SRCIMMGSETPRT. MAR; 1 ~— ~ 
a 1FF 
ROVAL PRVPRTADR,R6 
: BSBW § SETPRTSUBR 
.ENDM = SETPRT 


«MACRO RANGECHK ONOROFF 


16 
ie 
i 
189 
189 
9 19 LIST 
0 171 IF IDN <ONOROFF>,<OFF> 
0 176 ‘oa BICL  #CTLSM_RNGCHK,W*CTLFLG 
$0 17% y BISL § #CTLSM_RNGCHK,W*CTLFLG 
000 175 .ENDC 
00 1% NLIST 
000 17 ENDM RANGECHK 
000 179 
0000 180 : EQUATED SYMBOLS: 
9009 18¢ : SSECDEF 
000 1 SSSDEF 
$000 188 SGBL INI 
0000 186 $VIELD CTL,0,< DEF INE CONTROL BITS IN RS 
0000 187 < MEMLOOP, ,MASK>,~ [LOOP IN MEMORY WRITE LOOP 
0000 188 <TSTLOOP, ,MASK>,- [REDO ENTIRE TEST FROM TOP 
0000 189 <PIDMSG, ,MASK>,- [PUT PROCESS ID IN EACH TYPEOUT 
9000 190 <RNGCHK, ,MASK>= [ON IF CHECKING RETURN RANGE 
$o000020 $000 198 parse. “Nop iGeta5 
§0000081 0000 194 PRTSC_RESERVE=1a0 
$609 196 OWN STORAGE: 
0000 (197: 


————--- 


MMGSETPRT - TEST OF SSETPRT SYSTEM SERVICE 16-SEP-1984 01:59: AX/VMS Macro Vv04-00 Page 
y0e 800 DATA STORAGE AND MESSAGE STRINGS g73EE 13 4 8 3B:55 YRMGTST. SRE IAMCSETPRT MAR: 1 ° 
199 ~SBTTL DATA STORAGE AND MESSAGE STRINGS 
0000 6 «PSECT DATAO,PAGE,WRT,NOEXE 
INRANGE 
00000008 ; -BLKL 2 
RETRANGE: 
0000010 4 -BLKL 2 
9 96 5 CTLFLG: .LONG CTLSM_TSTLOOP!CTLSM_PIDMSG 
00001 14 : SAVEND: .BLKL 1 
000001¢ 18 0 PID: LKL 1 :PROCESS ID 
iC 8 MAXPASSCNT: 
00000003 001 09 .LONG 3 :NUMBER OF PASSES TO RUN 
0 10 PASSCNT 
00000024 1 -BLKL 1 :PASS COUNTER 
99 4 19 PREVPROT: 
024 213 FAB: $FAB FAC=PUT, FNA=OUTNAMADR, FNS=OUTNAMSIZ ;FAB FOR OUTPUT 
99 4 216 RAB: SRAB = FAB=F AB sRECORD ACCESS BLOCK FOR OUTPUT 
000000BC 0088 215 MSGLEN: .BLKL 1 :RETURN LENGTH F 
000000DA'000000A0' does 16 MSGBUFD: .LONG MSGBUF S12,MSGBUF [MESSAGE BUFFER DESCRIPTOR 
00000006 ' 00000004" b0C4 18 .LONG MSGBUF-PIDMSG,PIDMSG 
boce 9 ; teeee DO NOT SEPARATE OR REORDER THE FOLLOWING LINES 
oocc j MSGBUF ID: 
OA pd O0cc CRLF:  .BYTE *015,*012 
20 53 53 45 43 4F 2 0 OOCE 4 -ASCIL $PROCESS $ 
20 20 2 0006 5 PIDMSG: .ASCII $ $ 
0000017A OODA 6 MSGBUF: .BLKB 160 :MESSAGE BUFFER USED BY FAO 
000000A0 O17A : MSGBUF $1Z=.-MSGBUF 
OI7A 3 ; tet DO NOT SEPARATE OR REORDER THE PRECEEDING LINES 
017A  * 
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OL= 500 DATA STORARE AND MESSAGE Siavace Moreen 8Be Bi ikB5s FAMEVES Macro vee 0O  mans1 2% (2, 
D Ss; 
: i ; STRING DESCRIPTORS 
38 eALIGN LONG 
0 CRETVAERR: 
0000000A' 00000063 si teelll CRETVAERRSIZ,CRETVAERRADR 
0000006D "00000063 ; § seaateall DELTVAERRSIZ,DELTVAERRADR 
00000000'00000072 034 5 aL EXPREGERRS1Z,EXPREGERRADR 
4 6 SETPRTERR: 
00000142'00000092 , aia SETPRTERRSIZ,SETPRTERRADR 
000001D4"00000021 035 09 ye READERRSIZ,READERRADR 
3 10 NOREADERR: 
000001F 5*00000024 3 1 saiieaais NOREADERRSIZ,NOREADERRADR 
00000219"00000022 036 ig {LONG WRITERRSIZ,WRITERRADR 
6 14 NOWRITERR: 
00000238 '00000025 6 15 NOWRITERRSIZ,NOWRI TERRADR 
8 16 RANGERR: 
00000260'0000004F : i Vv aia .LONG RANGERRSIZ,RANGERRADR 
000002AF "00000039 037 19 "LONG IDMSGSIZ,IDMSGADR 
380 Q RUN1_MSG: 
000002E8'00000042 0380 1 aaa .LONG RUN1_MSGS1Z,RUN1_MSGADR 
0000032A'00000003 0388 5 " {LONG PIDCTLSIZ,PIDCTLADR 


TPRT 


0000 
0— 50 =€9 
09 50 «EB 


00000020"EF 01 00 
50 00000018'EF  3C 


O3FF 
OO10'CF 04 CA 


0010'cF 08 C8 


51 O8'CF ODE 

3 
52 0008 CF D 
0000°C $ 70 
OO14"CF 8 5§ dO 


OOooocco 


SPELELERERREEEEE Rte 
FF FUWWIIWININNVOOCOCOCOCOMMMMIO 
MOL NOPVVINNO NDS PS PUMVIOOOOLS 


OOoOOoOoOOSOOOOOOOSoS 


L1 
PRT SYSTEM SERVICE 


ET -1 1: AX/VMS Macro v04-00 Page 10 MM 
ON "ere ~SEP=1 138 8} 33 4 MMGTST.S RCIMM MMGSETPRT.MAR; 1 . (6) vO 
$ .SBTTL INITIALIZATION 
FRR AA AREA AERA AAA ATER AAA AAA AAAAAAEEAAAAAAARAAAAAAERAAAAAEAEREAA EES 
g [PROGRAM DESCRIPTION: 
p THIS PROGRAM TESTS THE FOLLOWING SYSTEM SERVICE: 
: : THE PROGRAM FORCES POSSIBLE ERROR PATHS FOR THE ABOVE MENTIONED 
4: SYSTEM SERVICES. THREE PASSES ARE MADE THROUGH THE TEST LOOP 
5: TO ENSURE PATH REPEATABILITY. ONLY REGULAR VA SPACE IS USED IN 
: : THIS TEST PROGRAM. 
§ ; REFER TO MASDS CMMGSTS. COMIMMGTST . RAP FOR FURTHER INFORMATION 
: REGARDING JUST HOW COMPLET ELY THE ABOVE MENTIONED SYSTEM SERVICES 
40 ; ARE TESTED BY THIS PROGRAM. 
4g i : *PRIVILEGES: 
43: THIS PROGRAM NEEDS NO SPECIAL PRIVILEGES TO EXECUTE. 
te i RARER AAA EERE AERA EAA AERA AAA AAAAEAAAAAAKEAAAAAAAAAAAAAAAAA ERA 
45 ; 
46 i t START HERE 
48 START: WORD SENTRY MASK 
49 $OPEN W*FAB [OPEN THE FILE ‘$OUTPUT 
50 BLBC 0,10 ‘BRANCH IF E 
31 SCONNECT w*RAB :CONNECT THE RECORD ACCESS BLOCK 
3g 10$:  $EXIT_S RO’ sEXIT WITH STATUS IN RO 
54 20$:  MOVL ~ #1,PASSCNT S INITIALIZE THE PASS COUNT 
55 SRESUME_S PI 1D, :SET UP PROCESS ID 
36 MOVZWL “31D 
37 $FAO_S Sita MSGLEN, PIDMSGD,RO SINIT THE PROCESS ID STRING 
2 + INFORM OPERATOR THAT TESTS WILL BE RUN USING ONLY NORMAL VA SPACE 
61 . SAO. S RUNI AMSG. WSGLEN, ,MSGBUF D y INFORM OPR NORMAL VA USED FOR TEST 
8 BICL  #CTLSM_PIDMSG,W*CTLFLG :STOP PROCESS 1D FROM PRINTING 
64 RSTART: 
65 RANGECHK ON 
BISL  #CTLSM_RNGCHK,W*CTLFLG 
366 SFAO_S IDMSG,MSGLEN,MSGBUFD,PASSCNT 
67 BSBW” TYPEMSGBUF 
368 EXPREG # 
MOVZWL 
MOV r 
MOVAL W°RETRANGE ,R1 
EXPREGSUBR 
9 MOVQ  W*RETRANGE,R 
0 MOVO R oW* INRANG 
4 MOVL *W*SAVEND 


| 
| 


TPRT 


OO10'CF 08 
33 01 

9 8 00'CF 
1 ve Ii 
1€7 

0010°CF 08 
53 ose 8F 
50 000° CF 
51 = 0008" CF 
54 04 

55 10 

56 

0298 

QOOO'CF 04 
ot 
50 0000'°CF 
51 gpoe' cr 
4 04 
55:10 

56 

0276 

Q000°CF 80000200 8F 
0004 ' CF amet tad 4 
50 0000°CF 
A al 
55 10 

56 

024C 

0000 CF ae rere ee 
gf 1EC oF 
50 Boece 
51 ff 
55 10 


2 
0014'CF 00000600 i 
0004 * CF 


000° CF 014'°CF 
bode CF O04 fF 


1 


OOO 00 09 C909 SI NINN AAAAOMMIUIMIE EEE EE DO 
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SEYPRT "$$EP=1986 81:38:05 EmmGYst SACIAMGSETPRT.MaR: 1 © 


~SBTTL FORCE ERRORS FROM SETPRT 
FORCE ERRORS IN SETPRT 


RANGECHK OFF 
#CTLSM_RNGCHK ,W*CTLFLG 


DELTVA :DELETE THE JUNK 
MOVZWL sess NORMAL ,R3 
MOVAL W*INRANGE,RO 
MOVAL U*RETRANGE. R1 
BSBW  DELTVASUBR 
RANGECHK ON 


#CTLSM_ RNGCHK, W°CTLFLG 
SETPRT UW. STATUSE#SSS- LENV ? 
OVZWL #SS$_LENVIO 
MOVAL NRANGE 

MOVAL U-RETRANGE Au 

MOVZBL S*#PRTSC_UW,R4 

MOVZBL S*#PRTSC “NONE, RS 

CLRL —R6 

BSBW _SETPRTSUBR 
SETPRT UW,#4,#8,#SS$_ACCVIO 
MOVL TNRANGE 


<> 
> 


DELETED PAGE 


S $C_UW, 
it lage “betnee NONE ,RS 


BSB 
SETPRT we de #*%80000400, 0 esss NOPRIV 


MO #*x a0 Me INRANGE +4 
MOVZWL #SS$_NOPRIV.R3 
* INRANGE 16 


S T$C 
MOVZBL jira NONE, RS 


CLRL 
BSBW ETPRTSUB 
SETPRT UR,<#1831-<1 Ba93°1> Ur INRANGE, #SS$_PAGOWNVIO 
MOVL #1 931-<12889>-1 ,W* INRANGE 
MOVL ws INRANGE. w* INRANG +4 
MOVZWL #SS$_PAGOWNVIO,RS 
MOVA W*INR 


PRT$C_UR,R 
MOVZBL —, NONE” “as 


ttt SETPRTSUBR 
ADDL3 #*x600 U*SAVEND. W* INRANGE +4 


CRETVA W*SAVEND,W* INRANGE +4 
MOVL U°SAVEND W* INRANGE 
MOVL ANGE +4 W" INRANGE +4 
MOV IWL Sapees 3 NORMAL. 


;PROTECT OFF END OF PO SPACE 


———— 
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v04= FORCE ERRORS FROM SETPRT g-8 Ep P-] 138 8:33:35 MMGTST. SRCIMMGSETPRT. MAR:1 18) 
0 ‘CF «=6DE «(0515 MOVAL W*INRANGE,RO 
af 0008" DF aR MOVAL wer TRANGE , R1 
114 aL BSBW ASUBR 
387 SETPRT URSW STATUS=NSS -ACCVIO,= 
5 5 INADR=W*4 ; INPUT RANGE NOT ACCESSIBLE 
53 oc 3c 05 MOVZWL #SS$_ACCVIO,R3 
50 O4'CF DE 05 MOVAL W*4,RO 
51 008" CF DE 3 A U*RETRA E 
4 OC 9A F MOVZBL S*#PRT$C_URSW,R4 
55 10 9A 3 2 MOVZBL SPAPRTSC- NONE .R5 
01E0 rn 537 BSBW §SETPRTSUBR 
53a 389 SETPRT UW 
53 01° 3c «O53A MOVZWL S*#SS$_NORMAL ,R3 
50 0000'CF dE 053D MOVAL W*INRANGE,RO 
1 0008°CF DE 342 MOVAL W*RETRANGE,R1 
54 04 «(9A (054 MOVZBL S*#PRTSC_UW,R 
55 10 9A 054A MOVZBL S*#PRTSC"NONE,R5 | 
56 «D4 «6054 CLRL = R6 
0108 30 054F BSBW __ SETPRTSUBR 
055 330 SETPRT URSW, STATUSSASSS, ACCVIO,- 
055 91 RETAOR=W* ;RETURN RANGE NOT ACCESSIBLE 
53 oc:)|S 3055 MOVZWL #sss ACCVIO,R3 
50 O000°CF dE 0555 MOVAL” W*INRA NRANGE ,RO 
51 0008'CF DE 055A MOVAL R1 
54 OC 9A OS5F MOVZBL S+APRTSC _URSW,R4 
55 10 9A 0562 MOVZBL S*#PRTS$C”NONE.RS 
56 4 (056 CLRL = R6 
0180 30 0567 BSBW § SETPRTSUBR 
056A 392 SETPRT UW 
53 01 3¢ 056A MOVZWL S*#SS$_NORMAL,R3 
50 O000'CF DE 056D MOVAL W*INRANGE,R 
51 O008'CF ODE 057¢ MOVAL WARETRANGE RI 
54 04 9A 057 MOVZBL S*#PRT$C_UW,R4 
55 10 OA 057A MOVZBL SA APRTSC” “NONE, RS 
56 D4 0570 CLRL = R6 
0198 30 O57 BSBW = SETPRTSUBR 
38 93 SETPRT URSW,STATUS=ASS$_ACCVIO,- 
5 94 RETADR=aW* INRANGE :CHANGE PROTECTION OF RETURN RANGE P 
53 0c 3c «(058 MOVZWL #SS$ ACCVIO,R3 
50 0000'CF DE 58 INRANGE 
51 0000'DF DE 058A a@w* INRANGE ,R1 
54 OC OA 058F MOVZBL S*#PRTS$C_URSW,R4 
55 10 9A 398 MOVZBL S*#PRTSC~NONE.RS 
56 (D4 «(059 CLRL 
0180 30 0597 BSBW SETPRTSUBR 
59a 0395 SETPRT UW 
53 01 3c 059A MOVZWL S$*#SS$_NORMAL,R3 
50 0000 'cF DE 059 MOVAL W*INRANGE ,RO 
51 O008'CF DE O5A OVAL WSRETRANGE , R1 
54 04 9A OSA MOVZBL S*#PRTS$C_UW.R4 
55 10 9A OS5AA MOVZBL S*#PRTSC “NONE ,R5 
36 4 O5AD CLRL 
016 0 OSAF BSBU TSUBR 
5B 396 SETPRT URSW,STA TUScAss ACCVIO,- 
5B 9 PRVPRTADR=aW* INRANGE sCHANGE PROTECTION OF PREVIOUS PROT 
53 0c 4«63c «(058 MOVZWL #SS$_ACCVIO,R3 


ay 
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MMGSETPRT = TEST OF SSETPRT SYSTEM SERVICE 16-SEP-1984 01: AX/VMS ° V04-00 P 
05-000 FOREE ERRORS FROM SETPAT Breer ebe O1:50:55 FANCY EE. aes eee ee Tees mans 2m 13, 
50 09° cF De BS MOVAL W* INRANGE ,RO 
‘Cr BA MOVAL W*RETRANGE 
4 6° OA O58F MOV BL S*#PRTSC_URSW,R4 
10 OA ce MOV ZBL S*#PRT$C-NO ONE +9 
se Ooops Be sya 
= V : N A HAN 
CD 398 SETPRT iit, stATy ee 1 PROT CT PROTECTION CODE GREATER THAN 15 
3 3Fe BF 63Cc «(05C OVZWL 
0 OO'CF ODE 30 
1 QO008'CF DE 05D MOVAL MAS TRAnE R1 
4 0 A 050¢ MOVZBL S*#PRT$C_TOBIG,R4 
55 9A 308 MOVZBL S$*#PRTS$C”NONE,R5 
0183 86. osee Sees Serprrsuar 
567 399 SETPRT RESERVE, STATUS=#SS$ $ IVPROTECT ZPASS RESERVED PROTECTION CODE 
53 O2F4 BF 3C 05E7 OVZWL ‘#SSS_ IVP 
0 Q000'CF DE O5€EC mOVALS 
51 9008" CF DE SF! NRANGE R1 
4 01 9A O5F6 MOVZBL S*#PRTSC_RESERVE,R4 
55 10 9A O05F9 MOVZBL S*#PRTSC~NONE,R 
56 «D4 OOSFC CLRL = R6 
0119 30 OSFE BSBW SETPRTSUBR 
0601 400 NOWRITE 
O60F 401 DELTVA 
53 01 «=3C) «(06 0F MOVZWL S*#SS$ NORMAL R3 
50 O000°CF ODE 612 MOVAL W*INRANGE 
51 0008'CF bE 61 MOVAL WORE TRAKGE™ R1 
0028 30 061C BSBW  DELTVASUBR 
O61F re 3 
061F 403 :END OF LOOP 
O61F 404; 
OC 0020'CF OO1C'CF F3 O61F AOBLEQ W*MAXPASSCNT,W*PASSCNT, 160$ 
50 01 DO 0627 406 150$: MOVL é 
062A SEXIT_S RO 
FDD4 31 0633 408 160$: BRW RSTART 
0636 409 


13 | 
MMGSETPRT = TEST OF SSETPRT SYSTEM SERVICE 16-SEP-1984 01: AX/VMS Macro V04-00 Page 14. 
405500 SUBROUTINES TO CALL THE SERVICES = $e =1982 8} 38 $f MMGTST. SRCIMMGS ETPRT.MAR; 1 ° sj 
6 6 4] SBTTL SUBROUTINES TO CALL THE SERVICES 
: : 11 > INPUT | 
414 ; 
636 «415: RO = INAD 
636 416 ; Ri = RETADR | 
636 «417: R3 = DESIRED STATUS 
636 $18 $ | 
636 419 : OUTPUT: 
636 420; 
636 421; R2 PRESERVED 
06 6 4 ¢ 
636 498 ERETVASUBR: 
06 $ 424 SCRETVA_ S (RO), (R1) 
51 FCE9 CF DE 0643 425 W*CRETVAERR,R1 sERROR CONTROL STRING 
14 11 0648 426 CHECK1 
064A 427; 
064A 428 : INPUT: 
064A 429; 
064A 430: RO = INADR. 
064A 431 : R1 = RETA 
064A 4 : : R3 = DESIRED STATUS 
064A 433; 
064A 434 : OUTPUT: 
064A 435; 
064A 436: R2 PRESERVED 
064A 437: 
064A 438 DELTVASUBR: 
064A 439 SDELTVA_S (RO),(R1) 
51 FCDD CF DE 0657 440 MOVAL “W*DELTVAERR,R1 ZERROR CONTROL STRING 
00 11 065¢ 441 RB CHECK1 
65E 44g CHECK1: 
53 50 D1 O065E 44 CMPL = RO, R3 :STATUS AS DESIRED 
4B «13° (0661 «0444 BEQL 108 ‘BRANCH IF YES 
53 0244 BF Bl 0663) «445 CMPW =, #SS$_VASFULL,R3 [IF EXPECTING VIRTUAL ADDRESS SPACE 
05 12 0668 446 BNEQ 
50 1C B81 066A 447 CMPW © #SS$_EXQUOTA,RO ; THEN EXCEEDS QUOTA MAY ALSO BE RETU 
3F 36 13) (066D «=| 448 BEQL 108 ~ 
54 «DD «(066F «60449 ‘5S: PUSHL R4 
54 04 AE DO 0671 450 MOVL  4(SP),R4 ZADDRESS OF ERROR 
0675 451 SFAO_S (R1),MSGLEN,MSGBUFD,R4,RO,R3.- 
0675 43¢ INRANGE , INRANGE +4, PETRANGE™ RETRANGE +4 
10 BA 0608 45 POPR #*M<R4> 
0157 9 O6AA 454 BSBW  ‘TYPEMSGBUF 
6AD 455 RSB 
O6AE 496 10S: 
0009 31 6AE 437 BRW RANGE CHK 7GO CHECK THE RETURN RANGE 
0681 459 : INPUT: | 
0681 460: 
0681 461: R1 = RETADR 
0681 46¢ ; R3 = DESIRED STATUS | 
681 463: R4 = PAGCNT 
681 464 ; RS = REGION 
681 465 ; 
681 466 : OUTPUT: | 
6B1 46 | 
| 
} 
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MMGSETPRT - TEST OF SSETPRT SYSTEM SERVICE 16-SEP-1984 01:59:27 VAX/VMS Macro V04-00 Page 15 | 
v04 SUBROUTINES TO CALL THE SERVICES et bhi 3B355 MMGTST.SRCJMMGSETPRT.MAR; 1 . (8) | 
| 
1 468 ; R2 PRESERVED 
1 4g : 
1 470 EXPREGSUBR: 
681 471 SEXPREG_S R4,(R1),,R5 
51 FC7C CF ODE é¢ are sna MOVAL “W*EXPREGERR,R1 sERROR CONTROL STRING 
53 50 o1 06C5 47% CMPL RO R3 ;STATUS AS DESIRED? 
9 13 06CB 475 BEQL =s«10$ SBRANCH IF YES 
6 DD 06CA 476 PUSHL R6 
56 04 AE 00 cc 47 MOVL  4(SP),R6 : ADDRESS OF ERROR 
600 478 SFAO_S (R1),MSGLEN,MSGBUFD,R6,RO,R3,R4,R5,- 
600 479 RETRANGE , RETRANGE +4 
0040 8F BA 6FB 480 POPR #*M<R6> 
0102 30 OGFF 4 1 BSBW TYPEMSGBUF 
0000'CF O00B'CF Dd 0703 rh 10$: MOVL  W*RETRANGE,W* INRANGE :MAKE INPUT RANGE LOOK LIKE CRETVA/D 
4 07 070A 484 DECL = RG 
54 54 09 78 O70C 485 ASHL #9,R4,R4 
0004'cF O000'CF 54 C1 0710 486 ADDL3 Ré.W* INRANGE ,W* INRANGE +4 
70 «+11 718 487 BRB RANGE CHK :AND CHECK THE RETURN RANGE 
071A 489 ; INPUT 
O71A 490: 
O71A 491: RO = INADR 
O71A 492: R1 = RETA 
O71A 493: R3 = DESIRED STATUS 
O71A 494: R4 = PROTECTION TO BE S 
O71A 495: R5 = DEISRED PREVIOUS PROTECTION (184 MEANS NOT SPECIFIED) 
OIA 496 : R6 = ADDRESS TO RETURN PREVIOUS PROTECTION 
071A 498 : OUTPUT: 
O71A 499: 
071A 500: R2 PRESERVED 
071A 501: 
O71A 308 SETPRTSUBR: 
O71A «50 SSETPRT_S (RO),(R1),.R4, (RO) 
0728 504 IFNOWRT #1, (R65, 10$ sSKIP PREVIOUS PROTECTION CHECK 
0731 505 SIF IT WASN'T RETURNED 
55 10 91 0731 506 CMPBs#'14,R5 [OR IF IT WASN'T SPECIFIED 
05 13 0734 507 BEQL 
66 6 «55—=O9 136 508 CMPB se R'5,, (RO) SOTHERWISE CHECK IT 
a 12 0739 209 il BNEQ 20% [AND BRANCH IF IT'S WRONG 
53 50 01 0738 311 CMPL ~—s_- RO, R3 :STATUS = DESIRED STATUS? 
4A 13—«O073E 1 BEQL § ©-_-30$ ‘BRANCH IF YES 
740 31 20S: 
57 oD 740 14 PUSHL R7 
57 04 AE DO 0742 515 OVL 4(SP),R7 “ADDRESS OF ERROR 
0746 316 SFAO_S SETPRTERR,MSGLEN,MSGBUFD,R7,RO,R3,- 
746 31 INRANGE , INRANGE +4 , RE TRANGE ,RE TRANGE +4, - 
746 18 PREVPROT,RS5 
57 BEDO 7 1 POPL 7 
0078 4930 (07 6 0 BSBW = TYPEMSGBUF 
05 07 1 RSB 
78A ‘i 
78A RANGE CHK: 
73 0010°CF 03 €1 O78A 4 BBC #CTLSV_RNGCHK,W°CTLFLG, 408 sBRANCH IF RANGE CHECK IS DISABLED 


SF 
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v04= SUBROUTINES TO CALL THE SERVICES -SEP-1984 01:58:23 CMMGTST.SRCJMMGSETPRT.MAR; 1 (8) 
7050 €9 079 5 BLBC ~=—_« RO, 460 y1F ERROR IN SERVICE, SKIP THE RANGE 
50 9000" ¢F BR 738 : MOV  W*{NRANGE,RO [RO = STARVA, R1 = ENDVA 
1 9 D1 079 CMPL i R1 [WHICH DIRECTION? 
1 1A 0798 a BoTRU § ‘BRANCH IF BACKWARDS 
04 1F 0790 9 3 iBRANCH IF FORWARDS 
0c 50 i€ €0 oF : Spe #30,R0,10$ ‘FOR EQUAL, PO SPACE FORWARDS, P1 BA 
gh § ; REQUESTED RANGE IS FORWARDS 
50 OFF BF AA O7A 4 Ss: BICW #*X1FF,RO :FROM BYTE 0 OF STARTVA 
51 «O1FF BF «ABCA 5 
OA 11 he 3 ; § : 
one 2 8 : GOING BACKWARDS IN VIRTUAL ADDRESS SPACE 
50 OFF 8F ABS O7AF 540 fos: BSW #OXtEE, RO sLAST BYTE OF STARTVA 
1 OFF BF AA 07B4 541 BICW #*X1FF-~R1 : THROUGH FIRST BYTE OF ENDVA 
0008' CF 30 D1 0789 348 20$: CMPL =e RO XURETRANGE tIS THIS WHAT WAS RETURNED? 
07 12 O7BE 54 BNEQ 30% ‘BRANCH If NOT, ERROR 
Oooc'cF 51 01 orc 544 CMPL R1,W*RETRANGE+4 [THIS ONE OK T 
3c 2 13—«O7C5S) 545 BEQL 40s ‘BRANCH IF YES, RANGE OK 
53 «DD «OO7C? 246 30$: PUSHL R i SAVE REGI st ER 
53 04 AE DO 0709 547 MOVL 4 (SP),R3 :TO USE FOR ERROR PC 
O7CD 548 SFAO_S <W*RANGERR>,MSGLEN,MSGBUFD,R3,- ; FORMAT THE ERROR MESSAGE 
07CD 549 INRANGE , INRANGE +4 ,RETRANGE .RE TRANGE +4 
08 BA O7FE 550 POPR #*M<R3> ;RESTORE SAVE REGISTER 
0001 30 0800 551 BSBW = TYPEMSGBUF S OUTPUT THE ERROR MESSAGE 
05 0803 552 40$: RSB SAND RETUR 


BISW  #AXTFFLRI THROUGH LAST BYTE OF ENDVA 
BRB 20$ 
| 
| 
| 


MMGSETPRT 
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«SBTTL MISCELLANEOUS SUBROUTINES 


T OF $SE 
LLANEOUS 
4 4 
4 5; 
4 5 : TYPE A MESSAGE 
4 ; MSGBUF IS THE ADDRESS OF THE BEGINNING OF THE STRING 
4 38 ; MSGLEN CONTAINS THE SIZE (IN BYTES) OF THE STRING 
04 60 TYPEMSGBUF : 
50 0088: CF DO 4 1 MOVL § W*MSGLEN,RO :SIZE TO RO 
51 OODA'CF OD 09 rv MOVAL W*MSGBUF.R1 SADDRESS TO R1 
08 0010'CF 62 €E 0 56 BC #CTLS$V_PIDMSG,W*CTLFLG,5$ ‘BRANCH IF NO PROCESS ID REQUIRED 
51 OOCC'CF DE 0814 564 MOVAL wW*M aR SADDRESS INCLUDING PID MSG 
50 OE’ ¢ are $6 - ADDL  § $*#<MSGBUF -MSGBUF ID>,RO S INCLUDE EXTRA BYTES IN COUNT 
O09C'CF 51 dO 6 1¢ 89 MOVL  R1,W*RAB+RABSL_RBF sSET BUFFER ADDRESS 
0096'CF 50 B80 0821 568 MOVW  RO,W*RAB+RABSW_RSZ ‘AN 
0826 569 $PUT  W*RAB [OUTPUT THE MESSAGE 
0150 €9 0831 570 BLBC RO, 208 
5 0834 571 RSB 
0835 328 20$:  SEXIT_S RO sEXIT WOTH ERROR STATUS 
O83 573; 
O83— 574 : INPUTS: 
O83E 575; 
O83E 576: O(SP) = ADDRESS OF ERROR 
O83 577: R1 = ADDRESS OF FORMAT CONTROL STRING 
O83 578: 
OB3E 579 : OUTPUTS: 
O83E 580: 
O83e 581: R2 PRESERVED 
O83E 382 : 
O83— 583 PROB 
55 DD OB3E 584 PUSHL 5 
55 04 AE DO 0840 585 OVL 4 (SP),R5 
0844 386 SFAO_S (R1),MSGLEN,MSGBUFD.R5 
20 BA 0858 587 POPR™ #*M<R5> 
FFAG 0 0850 588 BSBW §_ TYPEMSGBUF 
05 0860 589 RSB 
0861 590 
0861 591 
0861 592 END START 
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CRETVAERRADR 


E 
EXPREGERRSIZ 
E UB 


| DMSGADR 
IDMSGS1Z 
NR 


ERR 
EADERRADR 
NOREADERRS1Z 
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RANGERR 
RANGERRADR 
RANGERRSIZ 
READERR 
READERRADR 
READERRSIZ 
RE TRANGE 


RUN1_MSG 
RUN1 -MSGADR 
RUNI EMSGSIZ 
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- TEST OF SSETPRT SYSTEM SERVICE Terese SEP-1984 Oi: 23: $f AX/VMS Macro V04-00 Page 19 _— 
“SEP=-1984 01:58:23 CMMGTST.SR RC IMM MMGSETPRT.MAR; 1 (9 


MMAGSETPRT 
Symbol table 


SYSSCRETVA 
SYSSDELTVA 
SY T 


SYSSEXPREG 
SY 


geereere 
gReeeenee 
geeeeree 
gereeaere 
reeerenre 
geeeeree 
geeeeene 
eerianee 
geeenreee 
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uni TERR 20,9021 


5 
5 
4 
4 
2 
2 
4 


V0O Omar 


were Se Seo eee teh 


PSECT name Allocation PSECT No. Attributes 
. ABS. 00000000 


( NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ; SHR E RD WRT NOVE 
( 


0.) 00 ) LeL 
0.) Or ¢ 3) LCL NO XE € BYTE 
378-2 Og ¢ 3:) NOPIC USR CON REL LCL NOSHR NOEXE RD RT NOVEC PAGE 
145.) O38 ¢ 3.) NOPIC USR CON REL LCL 


DATAO 0000017A 


CODE 00000861 


| 

| 

° ! ;_Psect synopsis ! 
NOSHR EXE RD NOWRT NOVEC PAGE | 


| 
Phase Page faults CPU Time Elapsed Time | 
Initialization iu 00:00:00.11 00:00:02.1 
zounene processing 123 Se Se Be :00:06.5 
s 1 336 0:00:11.81 0:00:42.73 
Syabol table sort 2 280 :01 18 8:98:8 -96 | 
Pass 2 13 0: 202.73 00:00:09.85 
Symbol table output 16 9 :98:8 1 ee ee 
Psect synopsis output 1 00: 08-8 00:00:00.3 
Cross-reference output 8 00:00:00.0 ss By 
Assembier run totals 63 00:00:16.7 00:01:05. 


The working set Limit was 1350 pages. 

70956 bytes (139 pages) of virtual memory were used to buffer the intermediate cod 

There were 50 pages of symbol table seneee at lecated to hold 874 non-local ane 18 Local symbols. 
92 source Lines were read in Pass 1, produc eked object records in Pass 

m 


pages of virtual memory were used. to define acros. | 


Macro Library name 
-$255SDUA SYS.OBJJLIB.MLB;1 1 

S5eeSDUADE, tS¥$-08 STARLET .MLB;2 7 
TOTALS (all Libraries) 8 


1 13 
VAK=T1 Macro Run Statistics >) °F SSETPRI SYSTEM SERVICE "SSEP=198¢ 81:88:35 EamcYst.SReSAMGSETPRT.man:1 28° 2) 


1146 GETS were required to define 28 macros. 


——— 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MMGSETPRT/OBJ=OBJ$:MMGSETPRT MSRC$:MMGSETPRT/UPDATE=(ENHS:MMGSETPRT) +EXECMLS$/LIB 
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